home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-1097 / AMOSLIST / text0051.txt < prev    next >
Encoding:
Text File  |  1998-06-24  |  600 b   |  36 lines
  1.  
  2. > Hi!
  3. > 
  4. > Is there a smooth way to sort 20 variables???
  5. > 
  6. This is the second sorting thing written so heres my bubble sort 
  7. routine.
  8. Im doing this now from memory so it may/may not work
  9.  
  10. Dim v(20)               <-our variables
  11. ...
  12. .....
  13.  
  14. Repeat
  15. c=0
  16. For q=1 to 19
  17. IF v(q)>v(q+1)
  18.  temp=v(q)
  19.  v(q)=v(q+1)
  20.  v(q+1)=temp         <-swap em round
  21.  c=1
  22. END IF
  23. Next q
  24. Until c=0
  25.  
  26. That should work!! hopefuly
  27. ____________________________________
  28. Lee Atkins.
  29. L.A.ATKINS@UCLAN.AC.UK
  30.  
  31. IRC nick : EMBWBAM
  32. ________________________________________
  33. Metal detector mornings!
  34. ________________________________________
  35.  
  36.